 subroutine printdnrm2_d(title, array, iop) 
!
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
 implicit none
 character*(*), intent(in) :: title
 real*4, intent(in),managed :: array(*)
 real*8, external :: nrm2so, dnrm2
 real*8 f1, f2
 integer, intent(in) :: iop 
 f1 = 2.d0
 f2 = sqrt(2.d0)
 if(iop==11) then 
    write(6,*) title,'VV' 
    write(6,*) 'AA', nrm2so(nifvvaa, array(ifvv(1)), 1)
 elseif(iop==22) then 
    write(6,*) title,'VO'
    write(6,*) 'AA', nrm2so(nifvoaa, array(ifvo(1)), 1)
 elseif(iop==33) then 
    write(6,*) title,'OO'
    write(6,*) 'AA', nrm2so(nifooaa, array(ifoo(1)), 1)
 elseif(iop==1) then 
    write(6,*) title,'OOOO'
    write(6,*) 'ABAB',nrm2so(nioi12, array(ioi1(2)), 1)
 elseif(iop==2) then 
    write(6,*) title,'OOOV'
    write(6,*) 'ABAB', nrm2so(nioi22, array(ioi2(2)), 1)
 elseif(iop==3) then 
    write(6,*) title,'VVOO'
    write(6,*) 'ABAB', nrm2so(nioi32, array(ioi3(2)), 1)
 elseif(iop==4) then           
    write(6,*) title,'VVOO'    
    write(6,*) 'AAAA', nrm2so(nioi41, array(ioi4(1)), 1)
    write(6,*) 'ABAB', nrm2so(nioi42, array(ioi4(2)), 1)
    write(6,*) 'AABB', nrm2so(nioi45, array(ioi4(5)), 1)
 elseif(iop==5) then           
    write(6,*) title,'VVVO'    
    write(6,*) 'ABAB', nrm2so(nioi52, array(ioi5(2)), 1)
 elseif(iop==6) then           
    write(6,*) title,'VVVV'    
    write(6,*) 'ABAB', nrm2so(nioi62, array(ioi6(2)), 1)
 else 
    write(6,*)'error in iop' 
    stop
 endif 
 return 
 end 
